home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 015a / scanbat.zip / GO.BAT < prev    next >
DOS Batch File  |  1990-02-08  |  1KB  |  91 lines
  1. echo off
  2. cls
  3. set opath=%path%
  4. set path=%path%;comfiles
  5. type lastmin.ann
  6. pause
  7. cls
  8. :integ
  9. set fc=7
  10. set bc=1
  11. gmode
  12. if errorlevel 7 set bc=0
  13. clr 1 1 25 80 %bc% %fc%
  14. locate 3 5
  15. bigltr S E B F U
  16. locate 15 5
  17. bigltr  Ver 2.1
  18. locate 26 1
  19. wait 6
  20. clr 1 1 25 80 %bc% %fc%
  21. locate 1 1
  22. writef intro1
  23. cr
  24. clr 1 1 25 80 %bc% %fc%
  25. locate 1 1
  26. writef intro2
  27. cr
  28. :menu
  29. clr 1 1 25 80 %bc% %fc%
  30. locate 1 1
  31. writef menu
  32. getnum 01234567
  33. if errorlevel 7 goto newp
  34. if errorlevel 6 goto ptu
  35. if errorlevel 5 goto pma
  36. if errorlevel 4 goto pqu
  37. if errorlevel 3 goto dtu
  38. if errorlevel 2 goto dma
  39. if errorlevel 1 goto dqu
  40. goto xit
  41. :dqu
  42. set doc=quick.doc
  43. goto disp
  44. :dma
  45. set doc=manual.doc
  46. goto disp
  47. :dtu
  48. set doc=tutr.doc
  49. goto disp
  50. :pqu
  51. set doc=quick.doc
  52. goto prnt
  53. :pma
  54. set doc=manual.doc
  55. goto prnt
  56. :ptu
  57. set doc=tutr.doc
  58. goto prnt
  59. :newp
  60. set doc=newprod
  61. :prnt
  62. prnset
  63. if errorlevel 1 goto prnerr
  64. :prnret
  65. copy %doc% prn
  66. goto menu
  67. :disp
  68. lst %doc%
  69. goto menu
  70. :prnerr
  71. clr 1 1 25 80 %bc% %fc%
  72. locate 5 5
  73. yn Is your printer ready ? 
  74. if not errorlevel 1 goto prnret
  75. locate 6 5
  76. yn Do you want to abort ?
  77. if not errorlevel 1 goto menu
  78. locate 8 5
  79. write /n,Please prepare your printer for printing and press the "Enter" key
  80. cr
  81. goto prnt
  82. :xit
  83. set path=%opath%
  84. set opath=
  85. set bc=
  86. set fc=
  87. set ret=
  88. set doc=
  89. cls
  90. writef goodby
  91.